00100	RSL↔D DAV↔D HJE↔D TES↔E↔
00200	R PPSAV↔REN SL/Q=PPSAV.DAT↔
00300	DO SL.DO[L70,TES](2)↔
00400	|
00500	ED SL↔F¬∀*DAV≠↔D1:.-1↔FBAMS≠,3↔D.+1:*↔P/1↔E↔
00600	SP SL/N